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REQUIRED HARDWARE: 


NIBASM uses NIBL's firmware and so it may be run on either an LCDS or 
homebrew system configured to run NIBL. NIBASM needs almost 4k of ram or 
rom memory.This 4k block may be placed on any page 2 thru 7. 


As submitted NIBSAM will expect source code text on page 1.That and the 
fact that it also uses the top 200 bytes of that page make it desireable 
to have 4k of ram in page 1.To point NIBASM's text cursor to another page 
change the value of variable "L" on line 110 to equal the address of the 
first line number byte on the disired page. 


SOURCE CODE ENTRY: 

Source code is entered and edited using NIBL's text editor. Here's the 
format: 

[line number][a space][label] [opcode] [operand] [comments] 

LINE NUMBER- Same rules apply as in regular NIBL programming. 
The single space after the line number is'nt optinal (as it is in NIBL). 
Labels - Labels may be of any character length.Only the first character 
defines the label. The first character is also restricted to being alpha- 
betic(A thru Z). A space marks the end of the label. 


OPCODE FIELD- This field may contain an opcede,directive,or macro insru- 
ction mnemonic.All standard SC/MP mnemonics are supported by NIBASM. 


OPERAND FIELD-Pointer designation,auto-indexing mark and displacements 
may be in any order here. Example: 


[disp][ptr][@] OR [ptr][disp][@] OR [@][disp][ptr] 


An exeption occurs when a label is in the operand field.The label must 
be the last item and it must be preceded by a colon{: ]. 


COMMENTS- Comments may appear at any time as long as they are the last item 
on the line and are preceded by a semi-colon[; ]. 


DISPLACEMENTS AND NUMERIC EXPRESSIONS: 

All decimal numbers must be preceeded by a[+] or[-] symbol with no inter- 
vening spaces.Also a decimal number must not excede it’s equivelent 8-bit 
binary value. 

Example: +0 to +255 or -128 to +127 


Hexidecimal values must be preceded by a[#] symbol and have a single byte 
maximum length. An exeption occurs when applying the [.=] directive;then 
a 15 bit value is honored. 


ASCII CHARACTERS- Ascii characters may be used as displacement or data values. 
The character must be preceded by a['] symbol 


EXPRESSING POINTERS: 
Pointers may be expressed by preceding the pointer value with a[P] symbol. 


Note that one must not attempt to use apointer value greater than three 

since NIBASM does'nt check for a maximum limit number on pointers. 

Also note that NIBASM will ignore parends around a pointer expression. 17.e.: 
(P2) is treated the same as P2 


DIRECTIVES: 
NIBASM supports the following directives: [.END],[.=.],[-=Jand[.BYTE]. 


-END marks the end of the source text 
.BYTE (expr) enters a single byte value into the object code. 


sets the assemblers program counter to the value to the right of [.=]. 
=. sets a lable to the left of[.=.] to the assembler's current PC value. 


If a value is present to the right of [.=.] then the object code counter 
is incremented by that amount. 


THE EQUATE [=] SYMBOL: 
Used to the right of a lable to assign an 8-bit expression to the right 
of the{=] to the lable. 


NIBASM MACRO-INSTRUCTIONS 
NIBASM contains two macros to save your sanity.They are LDPI(LoaD Pointer 
| Tamepvate )and JSR(Jump SubRoutine). 


LDPI generates: 
LOI (exp high) 
XPAH (ptr) 
LDI (exp low) 
XPAL (ptr) 


JSR generates: | 
LDI((exp-1)high) 
XPAH(ptr) 
LDI((exp-1) low) 
XPAL(ptr) | 
XPPC(ptr) 


Where "exp" is a labled address value. 


Example: 
100 STACKPTR =, +0 
200 LDPI (P2) :STACKPTR 


ERROR MESSAGES: 

NIBASM flags three error types. They are: 

"OP ERROR"-NIBASM found an undefined mnemonic in the opcode field. 

When this happens NIBASM's program counter and object code address counter 
are incremented by two. 


"JMP DSP ERROR"- this message occurs only when a LABLED pc-relative 
jump excedes the -128,+127 displacement range. 

"UNDFND LBL"- NIBASM looked into it's label table for a value and found 
it to be set to FFFF(hex);meaning that the label had'nt been previously 
definds 


NIEASM OBJECT CODE: 

When the assembler starts running it will querythe user as to where to 

place the object code.The value returned will be stored in variable "D" 

and will serve as a reference for the hex-dump routine as well as the 

start of the object code block. | 

After assembly the immediate command "GOTO 1000" will access the dump routine 
and allow the user a look at the generated object code. 


NOTES AND WARNINGS 

Although source text must be the first thing present on NIBASM's target 
page NIBL text may exist on the same page on the line following the line 
with the .END directive. 


Do not allow source text or object code to overwrite the assembler§ 

ram space at the top of page 1. Doing so will have undesired effects. 

NIBASM has an addressing limitation in that it will not assemble code 
exceding the range 0000 to 7/FFF. 


Lastly - 

Nigfs, will take some time to do it's job.The assembly listing of the string 
compare subroutine took approx. Smin on a SC/MP running with a 6mhz 
external clock. 


NIBASM LINE COMMENTS © 
Let's do the subroutines first..... 
#200 to 230 Puts what's in variable "A" into lable table. 


#5200 Impliments the "=""function(puts the right hand side expression 
into the lable table). 


#6000 to 6030 HEX PRINT SUBR.- Entry value in "X"'.One or two bytes 
to print controlled by "Y". 

#6100 to 6120 Gets a lable value from table. 

#6505 to 6540 HEX ASCII to binary conversion. 

#6610 to 6640 DECIMAL ASCII to binary conversion. 

#6700 to 6730 Impliments the JSR and LDPI macro's. 


Now the main program body....... 

#20 Pgrm inputs(note: "W" is the pass counter). 

#30 Lable table initialization. 

#40 to 70 Loads string compare subroutine into ram. 


#110 to 180 Searches for: 
-Source text string 
- Line number in text 
- Lables (defining) 
- The ";" comment flag character. 


#4000 to 4510 - Compare "SG" to opcode table (lines 4100 to 4360) 
and get corresponding hex value. 

#4520 to 4532 - Set up case selectors "“N" and "J". 

#4535 to4700 - Process the key characters in the operand field. 
fhe characters looked for are: P #+- : ; '@ and carrage return, 
#4710 to 4920 - Manipulate the assemblers PC,store data in object 


code RAM area and return for a new Line. 


#1000 to 1020 - fhis is a program all to its self.It does A hex dump 


in an endless loop. 


3 aR kkk kok ok kkk bok bok kk 


3 * * 
a * STRING COMPARE FOR NIBASM ak 
3 * * 


> KKK KA KK KK KKK KK OK KK KOK KK KE KK KKK KKK 

eS | 

3ON ENTRY FROM NIBLU P2=#1861C CC STRT OF VARIABLES) 
> VAR"Z* MUST BE SET=#@0FF 


we 


180 UPPER =#1F 


110 GLOW = #AB 3DISP FOR LOC. 8166-1 

115 INDG = -3 

126 HLOW = #F8 

136 TEMP = -1 

148 CNTR = -2 

15@ SLOW = +36 

169 ZLOW = +58 

178 3 

18g o= #1F72 

198 3 

200 LDI :UPPER ; SET P1 

219 XPAH Pl 

226 | LDI ?:HLOW 

230 XPAL Pl 

248 LDI #88 3ZERO LOOP COUNTERe 

250 STC P1): CNTR 

255 LDI :GLOW 3SET UP "SG" PNTRe 

256 ST Pl: INDG 

258 3 

268 NEXT ILD P@:ZLOW 

270 XAE 

28 2 ccL 

298 LDI #21 

302 - CAD €P1)-1283TEST FOR SPACE OR <CR> 
318 JP :RETURN 3 TERMINATOR 

325 LD P2:SLOW 3$0R VAR"S" NOT ZERO. 
330 JNZ: RETURN 

340 LD P1-1283 3GET A SH CHAR. 

350 STC P1): TEMP 

368 ILD P1)tINDG 

370  XAE 

382 - LD -128¢P1) 

399 XORCP1): TEMP 

ABB ST P2 :SLOW PUT CMPR RESULT IN "S'eee 
41¢ JNZ : RETURN 3 END IF NOT ZEROcece. 
42D ILD Pl : CNTR 

430 XRI +05 30R IF MAX CHAR COUNT 
44D JNZ :NEXT 3 EXCEDED. 


> RUN 


SCMP ASM 
OBJCT CODE RAM=? 


10 
11 
i2 
13 


7266 


Sk ok kok kok 


° 
? 
@ 
> 


e 
- 


* x 
x STRING COMPARE FOR NI BASS c 4 
* a 


> KK KKK KK KK KE KKK KE KK KK OK EK KK KK KK & 


@ 


3ON ENTRY FROM NIBL Pe=#161C (C STRT OF VARIABLES) 
VAR"'Z" MUST BE SET= #@@FF 


e 
> 


UPPER =#1F 


GLOW 
INDG 
HLOW 
TEMP 
CNTR 
SLOW 
ZLOW 


yf 


e 
Pa 


ed 
NEXT 


LDI 
APAH Pl 
L DI 
XPAL Pt 


f#AB 3 DI SP FOR LOC. 
-3 

#FS 

=4 

_ 

+ 36 

+50 


8 168-1 


= #1F72 

sUPPER ; SET Pl 
sHLOW 
LDI #02 

STC P1): CNTR 


LDI :GLOW 3;$SET UP 
ST PisINDG 


3ZERO LOOP COUNTER. 


"*SG°° PNTRe 


ILD Pe: ZLOW 


XAE 


CCL 

LDI #21 | 

CAD €P1)-1283 TEST. FOR SPACE OR <CR> 
JP :RETURN 3 TERMINATOR 


LD Pe: SLOW $O0OR VARS" NOT ZEROe 
JNZ3 RETURN 
LD Pi-128 sGET A $H (QIAR. 


STC P1): TEMP 
ILDCP1)3 INDG 
XAE 

LD -128¢€P1) 
XORC Pi) 3s TEMP 


ST P2 :SLoW 3;PUT CMPR RESULT IN "Stee 
JINZ : RETURN 3 END IF NOT ZEROceee 

ILD P!1 : CNTR 

XRI +05 3OR IF MAX CHAR COUNT 

JINZ :<NEXT 3; EXCEDED. 

XPPC P3 


>GO TO 
OBJCT 


1C2e 
1C3G 
1C46 
1C50 


1Cee 
CODE 
C4 1F 
G1 Ge 
AY FD 
DD 3F 


BRK AT 6025 


> 


35 
C4 
G1 
0B 


C4 F8~ 31 
F9 86 94 


21 
Ci 


8B EE! 


C4 


FF 


68 C9 FE C4 _ AB 
i9 Ce e4 9gC 15 
CA 24 9C 86 AID 


Co FD AA 32 
C1 88 C9 FF 
FE E4 @§ 9C 


LIST 
2CGRrn'SCMP ASM" FRNOBJCT CODE RAM="5 :INPUTD:H=8 1@@:1=79983: W=1 
32FORXK=8T0O513: CCI+XI=FFFIENEX TX: V=8 OSE: Z=- 1 
4ACGSH="C41F35C4F8 31 C4EQC9OFEC4ABCYF DAA32@1B2C421F96 69 419CE"': GOSUB7@2: Z=-1 
Oe ere ONAN ee one er eee ees ee eraeee 
6CH=8 18 4: GOTO11I@ 
72FORJ= 6T024: GCOSUBE65685: @€V=Bs: V=Vel2 NEX TJ! RETURN 
11@ K=D:L=433 4: FR 
1 SOX = OL + 256+ OC L+ 1) 2N=L+ 4: I FCX=- 1) OR W= 4) PR": PR"END ASM'': END 
1461 FW= 3PRX5 
1431 FEN<>59G0T0 162 
1451 FW= 3PR" 
1461 FW= 3PR*' 
15G6I FW> 2@PRSCL+ 3) 
152 L=L+e@CL+eQ)31F W=2 W=W+1:GOTO 114 
155GO0T0 leg 
16CI F@N<> 32GO0SUB2OE 
17ON=N+ 1: IF@N= 3260T017G 
1751 FEN=59G0T0145 
18 BGO TO4012 
eG@e X=C€ €N-65)*2: I FCX<BO)YORCX>58) GOTO 222 
2 ¢SU=X% 

219 ec 1+X)=@41 24: CCI+X+1)=04125 

220 IF @N<>32 N=N+1: GOTO 226 

2 38RETURN 

1COBPR'OBJCT CODE": PR": K=Ds G=8 16003 H= 8184 
1010Y=0:xX=Ks3 GOSUB6@103:Y=1 

1Z22@G@ FORZ=1T016:X=8K: GO SUB601 8: K=K+ 13NEXTZ: PR": GOTOIG1G 
4G1G C=O: G=8 18s P=41 063 Q= 45063 V=E3 SG=SN2X=e@G 
4G6CGI FX<65 P=4336 
4G3QI FX>8 2P= 4270 
AG4GBIFX>73 P=4265 
4AZ5@GOTOP 
41G8SH=""ADD 


Ss 


> GOTOIS5@ - 


FQ"*'s GCOTOQ 


4105SH=""ADE 
411¢@Sd="ADI 
4115SH=""AND 
4120SH="ANE 
4125$H= "ANI 
41 30SH="'CAD 
4135R1=""CAE 
4146SH="'CATI 
41455H="'CAS 
415@SH="*CCL 
415S5SH=""CSA 
4166SH="'DAD 
4165SH=""DAE 
4170SH="'DAI 


76"': GOTOQ 
F4"'s GOTOQ 
DO**s GOTOA 
5g": GCOTOQ 
D4""*: GOTO @ 
FB": GOTOQ 
78": GOTOQ 
FC": GCOTOO 
G7°*: GOTOQ 
ge": GOTOG 
Z6"': GCOTOQ 
E8"': GOTOQ 
68 **s GOTOQ 
EC": GOTOQ 


ALYTSSH="DINT @4"s GOTOQ 


418 @SH=""DLD 


BS": GOTO®@ 


4185SH=*"DLY 8F*: GOTOQ 
419 CSH="HALT 86°: GOTOQ 


LIST 4195 

ZI9SSH="LEN @5"': GOTOO 

A2CCSH="ILD AS": GOTOO 

A2GS5S4="JMP 9B": GOTOG 

A2Q1GSH="JINZ 9C'": GOTOG 

4215$4="JP 94": GOTOR 

A220SH="JZ 98": GOTOG 

4225SH="LDE 40": GOTOO 

423OSH="LDI C4": GOTOO 

4235SH="LDPI FA": GOTOG 

A2A4CSH="LD CO": GOTOR 

4245SH="ORE 53: GOTOQ 

425@SH="ORI DC": GOTOQ 

4255SH="0R D3": GCOTOQ 

4260SH="RRL 1F": GOTOG 

A265SH="RR 1E'": GOTOG 

A&TESH="SCL G3": GOTOQ 

A275$H="SIO 19%: GOTOR 

A238 @$H="SRL 1D": GOTOQ 

4235SH="SR 1C": GOTOO 

429GSH="ST C3": GOTOQ 

4295$H="KAE G1": GOTOQ 

ABCESH="KOR EG": GOTOQ 

4325SH="KPAH 34'': GOTOO 

A31BSH="XPAL 36": GOTOO 

4315$H="XPPC 3C™: GOTOQ 

A328SH="XRE 60": GOTOQ 

4325SH="XRI E4": GOTOQ 

433GSH="".END 16": GOTOQ 

4335$H=""= FE": GOTO@ 

4 349SH="". BY TEFF"': GO TOQ 

4345$H="e=~5 Fe": GOTOQ 

4350SH=""s= FB": GOTOQ 

A355SH="NOP @8": GOTOQ 

436GSH="JSR FO": GOTOQ 

43651FW=3 PR"OP ERROR "3 

4378G0T049 BB 

450@S=0:Z=255:LINK8 @58:1F S<>@ P=P+5:GOTOP 
4519860 SUB6585: S= 6680: I FB=16W=+ 1: GOTO158 
4520 V=B:I FC U<32)0RC V>63) ANIX V<121) GOTO 4880 
4525 G=G+(Z-2):Z=(-1)2J=121F V>#BF J=2 
ASOIN=2:1FV=255 N=1l 

45231 FV=254 N=@ 

45291 Fv=242 N=3 

45301 FV=251 N=4 

45311 FV=*FA N=5: V=6 

45321 FV=#F9 N=6: V= : 

4535 DO:M=eG: G=Gt 1: IFC(M=13)0R(M=32)GOTO 4766 
AS4@I FM=8@ GOSUB6610: V=V+B 

4545 IFCM=35) AND(N=4)H=G: GOSUB 655: A=B*256:GOTO 4547 
4546GOTO 4562 

4547 GOSUB 6505: A=A+ B:H=8 18 4:M=13: GOTO 4702 
45681 FCM= 35) AN IX J= 1)H=G: GOSUB65@5: V= V+ Bt H=8 18 4: G=G+2 
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LI $14576 

457@1FJ=1 GOTO4STECESYS 

453 G1 FM=39 C=6G 

4596 IF 3=(M=64)+¢€ @=€V AND 4))+¢€U> €BF) V=Ut4 

4E60CIF M=35 H=G3: GOSUBES65: C=B:d=3 18 4: G=E+2 

4S61G IF (€M=43.0RK(M=45) GOSUB 6616: C=B:IF M=45 C=C(NOT C)+1] 
4620 IF M=58 M=@G:GOSUB 612@@: C=C+Z:M=13:1FCV>143) AVDC VU< 168) GOTO 4642 
4638 GOTO 4786 

464G@ IF C<=A C=C-€ Ate): GOTO 46646 

4656 C=C-C At+e2) 

466GI FCC C<- 128) 0K C>127)) ANDO W= 3) PR'JMP DSP ERRORS 
47@@ UNTILCM=13) 0K(CM=59)3: IFC J=2) ANIXN=2) GOTO 4968 
A716 IF N=1 V=aC 

ATISIFN= 3Y=6:X=A: GOSUBS: A=A+C: K=K+C: GOTO] 46 

472GI FN=2G0 SUBSe2&6E6: GOTO146 

47361 FN=4G60T0145 

47461 FCON=S)IOKRCN=6) GO SUB6766: GOTO 146 

43 2@Y=@:X=Az: GOSUBSs A=A+ 12 KX=V: GOSUBS: @K=V3K=K+1 

431@ Ph" "*3;:GOTO 156 

AI BCY=6:X=A: GOSUBS: A=A+ 232 X=V: GOSUBS: @K=VU: K=K+ 1] 

49 2@x=C: GOSUBS: @K=C: K=K+ 13 GOTO15@0 

Seeex=U: Y=A: A=C AND #7FFFs GOSUBe1G: A=Y3: Y=1:X=C: GOSUBS: RETURN 
6G¢CCI FW<> SRETURN 

6016 S$H="' “: $G=""@1 23456739 ABCDEF':X=X AND #€7FFF 
662Ce@CH+39=@CG+MOM Xs 16))5X=X/163 @CH+2)= 800 G+MO DE Xs 16)) 
64251 FY=1PREH5 s RETURN 

6032X=X/ 163 @CH+ 1)=0C G+MOM X>s 16))3 €GH=0C G+X/16)3 PESH$ sY=13: RETURN 
61@G X=(M-65)*23 €4174=@0C1+X)3 €4175=6C14+X%+1) 

611@ IFCZ=-1) ANTEC W=3) PR’ UNDFND LBL "5 

6 12GRETURN 

65825X= 0: B=O 

651@ R=@CH+Z+1)-483:1IF R>-9 R=R-7 

6538 B=B*16+R:Z=Z+12:X=X+12:1F X<2 GOTO 65106 

654@ KETURN 

661@ X=@8: B-@: DO: R=@G- 483: IFC R< @ORC R29) X=1:3 GOTO 6648 
663@ B=B* 10+R: G=G+1 

664@ UNTIL X=1: RETURN 

67¢0Y=@:X=A: GOSUBS: IFN=6 C=C-1 

6725@K= #€C4: @CK4+ 1) =O 412982 @C Kt) =434+V 

671 @@CK+3)=#C4s OC K+ 4) =041283 OC K+ 5) =F 304+ V3 K=K+ 63 A=At+ 6 
67261 FN=6@X= #3C+ V3 K=K+13 A=A+ 1 

67 3Q@RETURN 


> 


PRINT TOP 
12187 
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